Pass the -r flag to losetup for read-only devices.

Signed-off-by: Daniel P. Berrange <berrange@redhat.com>

diff --git a/tools/examples/block b/tools/examples/block
index 2b6b9911254a76864bc57ac1e861c9b77491d8c7..ac4313ecd924d679a162872362a81bffd34de8bc 100644 (file)
--- a/tools/examples/block
+++ b/tools/examples/block
@@ -367,7 +367,13 @@ mount it read-write in a guest domain."
           fatal 'Failed to find an unused loop device'
         fi
 
-        do_or_die losetup "$loopdev" "$file"
+        cmode=`canonicalise_mode $mode`
+        if [ "$cmode" == 'r' ]
+        then
+          do_or_die losetup -r "$loopdev" "$file"
+        else
+          do_or_die losetup "$loopdev" "$file"
+        fi
         xenstore_write "$XENBUS_PATH/node" "$loopdev"
         write_dev "$loopdev"
         release_lock "block"